home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
basic
/
bascomm.zip
/
MINCOM.BAS
< prev
next >
Wrap
BASIC Source File
|
1987-05-05
|
149b
|
5 lines
100 CLS:LOCATE 1,1,1:OPEN "COM1:1200,E,7,1" AS #1
110 IF NOT EOF(1) THEN PRINT INPUT$(1, #1);
120 IF INSTAT THEN PRINT #1, INKEY$;
130 GOTO 110